home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 February
/
1988-02.d64
/
impossible 4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
29 lines
10 rem copyright 1988 compute! publications, inc. - all rights reserved
20 print"[147][144] copyright 1988 compute! pub., inc."
30 printtab(11)"all rights reserved"
40 gosub62000
50 print"[147]":sys49152:print
60 printspc(14)"yoyo border"
70 printspc(13)"press [return]"
80 geta$:ifa$<>chr$(13)then80
90 sys49155:end
62000 fori=49152to49399:reada:pokei,a:x=x+a:next
62010 ifx<>31552thenprint"data statement error.":stop
62020 return
62030 data 24,144,21,120,32,132,255,32,129,255,173,232,192,141,20,3
62040 data 173,233,192,141,21,3,88,96,120,169,127,141,13,220,173,13
62050 data 220,173,20,3,141,232,192,173,21,3,141,233,192,169,98,141
62060 data 20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169
62070 data 50,141,18,208,169,55,141,234,192,169,7,141,235,192,141,246
62080 data 192,169,1,141,245,192,169,129,141,26,208,169,143,141,25,208
62090 data 88,96,120,173,17,208,41,127,141,17,208,173,234,192,24,109
62100 data 245,192,141,234,192,141,18,208,201,55,176,37,169,1,141,245
62110 data 192,238,235,192,173,235,192,41,7,168,173,33,208,41,15,217
62120 data 236,192,208,4,200,238,235,192,185,236,192,141,246,192,56,176
62130 data 9,201,250,144,5,169,255,141,245,192,173,246,192,141,32,208
62140 data 169,197,141,20,3,169,192,141,21,3,169,143,141,25,208,104
62150 data 168,104,170,104,64,120,173,17,208,41,127,141,17,208,169,50
62160 data 141,18,208,169,0,141,32,208,169,98,141,20,3,169,192,141
62170 data 21,3,169,143,141,25,208,76,49,234,132,0,6,5,2,14
62180 data 13,10,8,7,15,0,0,170